open(BUFF,"test_dosage1_nohead.dat");
open(WRBUFF,">test_dosage1_nohead1.dat");
$line = <BUFF>;
print WRBUFF $line;
while($line = <BUFF>)
{
	chomp($line);
	@array = split(/\s/,$line);
	$line = $array[0]." ".$array[1]." ".$array[2];
	for($i=3;$i<@array;$i++)
	{
		$temp = 2*$array[$i];
		
		$line = $line." $temp";
	}
	print WRBUFF $line."\n";
}	
